10 REM CREATE RELATIVE EMAIL FILE
20 OPEN15,8,15:OPEN1,8,2,"EMAIL,L,"+CHR$(254)
30 PRINT#15,"P"+CHR$(98)+CHR$(145)+CHR$(1)+CHR$(1)
40 PRINT#1,"@END"
50 CLOSE1:CLOSE15
60 END